home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / os2 / srefv112.zip / SREFPRC1.ZIP / MAKELIB.CMD < prev    next >
OS/2 REXX Batch file  |  1996-05-15  |  2KB  |  75 lines
  1. /* This will create SREFLIB.RXF : a set of  SRE-FILTER
  2. functions to be loaded into MacroSpace.  Run this if
  3. you modify the source code (the .SRF files).
  4. */
  5.  
  6.  
  7. /*--------------   Load REXX libraries ----- */
  8. /* Load up advanced REXX functions */
  9. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  10. call SysLoadFuncs
  11.  
  12.  
  13. foo=rxfuncquery('rexxlibregister')
  14. if foo=1 then do
  15.  say ' loading REXXLIB '
  16.  call rxfuncadd 'rexxlibregister','rexxlib', 'rexxlibregister'
  17.  call rexxlibregister
  18. end
  19.  
  20. say " saving old macrospace "
  21. sstat=macrosave('tmp.rxl')
  22. if sstat=0 then
  23.  say " .. macrospace is empty ?! "
  24. goo=macroclear()
  25.  
  26. say " Adding srefilter procs to macrospace "
  27. retc=amacro('OPENREAD.SRF','SREF_OPEN_READ','Before')
  28. retc=amacro('GRABFIL1.SRF','SREF_GRAB_FILE','Before')
  29. retc=amacro('REPSTRG.SRF','SREF_REPLACESTRG','Before')
  30. retc=amacro('MEDIATYP.SRF','SREF_MEDIATYPE','Before')
  31. retc=amacro('HOST.SRF','SREF_HOST','Before')
  32. retc=amacro('LOOKUP.SRF','SREF_LOOKUP_COUNT','Before')
  33. retc=amacro('EXTRACTB.SRF','SREF_EXTRACT_BLOCK','Before')
  34. retc=amacro('INSERTB.SRF','SREF_INSERT_BLOCK','Before')
  35. retc=amacro('MAKEB.SRF','SREF_MAKE_BLOCK','Before')
  36. retc=amacro('FIX_URL.SRF','SREF_FIX_URL','Before')
  37. retc=amacro('GET_URL.SRF','SREF_GET_URL','Before')
  38. retc=amacro('GMTTIME.SRF','SREF_NEW_GMT','Before')
  39. retc=amacro('EXPIRE.SRF','SREF_EXPIRE_RESPONSE','Before')
  40.  
  41. retc=amacro('DOVIRT.SRF','SREF_DO_VIRTUAL','Before')
  42. retc=amacro('DOALIAS.SRF','SREF_DO_ALIAS','Before')
  43. retc=amacro('WILDCARD.SRF','SREF_WILDCARD','Before')
  44. retc=amacro('JULDATE.SRF','SREF_JULDATE','Before')
  45. retc=amacro('LOAD_MAC.SRF','SREF_LOAD_MAC','Before')
  46. retc=amacro('INI_CNTR.SRF','SREF_INIT_COUNTER','Before')
  47. retc=amacro('SREFVER.SRF','SREF_VERSION','Before')
  48.  
  49. retc=amacro('CONJUREF.srf','SREF_CONJUREF','Before')
  50. retc=amacro('DOCGI.srf','SREF_DOCGI','Before')
  51. retc=amacro('CHK_PRIV.srf','SREF_CHK_PRIV','Before')
  52. retc=amacro('GETPOST.srf','SREF_GETPOST','Before')
  53. retc=amacro('MAPIMAGE.srf','SREF_MAPIMAGE','Before')
  54. retc=amacro('MAILIT.srf','SREF_MAILIT','Before')
  55. say " Creating macrospace library for SRE-FILTER "
  56. foo=macrosave('srefprc1.rxl')
  57. say " save status " foo
  58. /*aa=dirfile('srefprc1.rxl')*/
  59.  
  60. goo=macroclear()
  61. if sstat=0 then do
  62.   say " restoring old macrospace "
  63.   aa=macroload('tmp.rxl')
  64. end
  65. a=sysfiledelete('tmp.rxl')
  66.  
  67. exit
  68.  
  69. amacro:
  70. parse arg v1,v2,v3
  71. v3=left(v3,1)
  72. foo=macroadd(v2,v1,v3)
  73. return foo
  74.  
  75.